home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / fido / wpl_intro.lzh / rexx / fidopoll.rexx < prev    next >
OS/2 REXX Batch file  |  1993-02-26  |  2KB  |  58 lines
  1. /* FIDOPoll.rexx  For use with WPL V0.82+ */
  2.  
  3. /*
  4.  *  Simple script to call all fidonet sites who have pending outbound mail
  5.  *
  6.  *  Uses xferq.Library by David Jones (aa457@freenet.carleton.ca)
  7.  *
  8.  * Russell McOrmond   rmcormon@ccs.carleton.ca aa302@freenet.carleton.ca 
  9.  * FidoNet 1:163/109  Net Support: (613) 230-2282  WPL Support  1:1/139 
  10.  *
  11.  */
  12.  
  13. Options RESULTS
  14. Options failat 100
  15.  
  16. /* iterate through nodes who have work */
  17.  
  18. sitelist=XfqGetSiteList()
  19. call XfqWalkSession(sitelist,sitearray)
  20.  
  21. say "There are "sitearray.numentries" sites in the queue"
  22.  
  23. do loop = 1 to sitearray.numentries
  24.  
  25.    say 'loop=' loop 'Site:' sitearray.loop
  26.    MaxPri = XfqMaxSitePri(sitearray.loop)
  27.    addrtags.XQ_Mandatory = 511 /* XQADDR_ANYTHING */
  28.    addrtags.XQ_Optional = 511  /* XQADDR_ANYTHING */
  29.    System = XfqPutAddress(sitearray.loop,addrtags)
  30.  
  31.    System = UPPER( system )
  32.    say 'system="'System'"  Priority:'MaxPri 
  33.  
  34.    if (MaxPri < 1) | (MaxPri > 120) then Iterate 
  35.  
  36.    if (left(System,13) ~= 'FIDONET#1:163') & (left(System,13) ~= 'FIDONET#1:243') then Iterate
  37.  
  38.    if (System == 'FIDONET#1:163/139.0') then Iterate
  39.    if (System == 'FIDONET#1:163/109.0') then Iterate
  40.    if (System == 'FIDONET#1:163/109.15') then Iterate
  41.    if (System == 'FIDONET#1:163/524.0') then Iterate
  42.    if (System == 'FIDONET#1:163/109.11') then Iterate
  43.    
  44.    Address SLAVE2 
  45.    'call '||System
  46.  
  47.    adelay= Getclip('wsched-delay')
  48.  
  49.    if ( words(adelay) == 1) then do
  50.          say 'Doing delay='adelay 'seconds'
  51.          call delay (50*adelay)  /* delay for 'quantum' seconds */
  52.    end
  53. end
  54.  
  55. call XfqDropObject(sitelist)
  56. call XfqClose()
  57. Exit 0
  58.